home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / programs / sound / delitracker_v2.01 / install-dt_ii < prev    next >
Text File  |  1995-02-13  |  18KB  |  682 lines

  1. ;=============================================================================;
  2. ;
  3. ; $VER: DT_Install 2.0 (15.04.1994)
  4. ;
  5. ; Installation script for DeliTracker 2.0
  6. ; (c) Copyright 1994 by Frank Riffel and Peter Kunath
  7. ; adapted for Meeting_Pearls-CD by Tobias Abt
  8. ;
  9. ;=============================================================================;
  10. ;=============================================================================;
  11. ;=============================================================================;
  12. ;
  13. ; This is a quick description how this script works:
  14. ;
  15. ; 1.INIT_STUFF
  16. ;
  17. ; 2.CHOOSE_DESTINATION
  18. ;     NOVICE: Work:, if mounted, or SYS: if not.
  19. ;     AVERAGE, ADVANCED: ask (Work: suggested)
  20. ;
  21. ; 3.MAIN                         ~ 80K
  22. ;
  23. ; 4.PLAYERS                        ~300K
  24. ;     NOVICE: default players, other in playerstore
  25. ;     AVERAGE, ADVANCED: ask further players to install
  26. ;
  27. ; 5.GENIES                        ~140K
  28. ;     NOVICE: default genies, other in geniestore
  29. ;     AVERAGE, ADVANCED: ask further genies to install
  30. ;
  31. ; 6.AREXX                        ~ 15K
  32. ;     NOVICE: no
  33. ;     AVERAGE, ADVANCED: ask user
  34. ;
  35. ; 7.LIBS                        ~ 40K
  36. ;     NOVICE: install decompression libs
  37. ;     AVERAGE: ask user (suggested)
  38. ;     ADVANCED: ask (may keep older lib versions)
  39. ;
  40. ; 8.DOCS ALL: depending on language            ~100k
  41. ;
  42. ; 9.DEVELOPER_DOCS                    ~160K
  43. ;     NOVICE, AVERAGE: no
  44. ;     ADVANCED: ask user
  45. ;                            ======
  46. ;                        TOTAL     850K
  47. ;=============================================================================;
  48. ; Some initial stuff like kick version check, lanugage selection, ...
  49.  
  50. (if (= @LANGUAGE "english")
  51.  (
  52.   (set def_pat "#?.doc#?")
  53.  
  54.   (set #bad-kick
  55.   (cat "DeliTracker 2.0 will only run under Kickstart 2.04 or above!"
  56.   ))
  57.  
  58.   (set #abort-t
  59.   (cat "Make sure that T: is big enough to hold 500KB."
  60.   ))
  61.  
  62.   (set #abort-no-space
  63.   (cat "You need at least 850.000 Bytes of free store to install DeliTracker II"
  64.   ))
  65.  
  66.   (set #choose-text
  67.   (cat "Please choose a directory where DeliTracker should be installed! A drawer will be created there."
  68.   ))
  69.  
  70.   (set #choose-help
  71.   (cat "In this location a drawer will be created. All files exept the libraries will be installed inside this drawer. The complete installation will require about 1MB of free harddisk space."
  72.   ))
  73.  
  74.   (set #create-maindir
  75.   (cat "Creating DeliTracker directory"
  76.   ))
  77.  
  78.   (set #create-configdir
  79.   (cat "Creating Config directory"
  80.   ))
  81.  
  82.   (set #set-path
  83.   (cat "Setting up configuration path"
  84.   ))
  85.  
  86.   (set #inst-main
  87.   (cat "Installing main program."
  88.   ))
  89.  
  90.   (set #create-docsdir
  91.   (cat "Creating Docs dir"
  92.   ))
  93.  
  94.   (set #inst-docs
  95.   (cat "Installing program documentation"
  96.   ))
  97.  
  98.   (set #ask-xpk
  99.   (cat "Do you whish to install the decompression libraries?"
  100.   ))
  101.  
  102.   (set #xpk-help
  103.   (cat "It's suggested that you install the decompression libraries, even if you currently don't have packed modules!"
  104.   ))
  105.  
  106.   (set #create-comressorsdir
  107.   (cat "Creating Libs:Compressors dir"
  108.   ))
  109.  
  110.   (set #create-playerdir
  111.   (cat "Creating Player dir"
  112.   ))
  113.  
  114.   (set #create-playerstore
  115.   (cat "Creating PlayerStore"
  116.   ))
  117.  
  118.   (set #ask-players
  119.   (cat "Which Players should be activated?"
  120.   ))
  121.  
  122.   (set #ask-additional-players
  123.   (cat "Activate further players ? These players that are not widespread. The average user won' need them to be activated. We suggest that you select 'NO'!"
  124.   ))
  125.  
  126.   (set #ask-players-2
  127.   (cat "Which additional Players should be activated? Think twice before selecting!"
  128.   ))
  129.  
  130.   (set #player-help
  131.   (cat "Select those players you want to be loaded at startup. Please choose only those players you REALY need and you have modules for. All others will be installed in the PlayerStore directory so you may load them later."
  132.   ))
  133.  
  134.   (set #create-geniedir
  135.   (cat "Creating Genie dir"
  136.   ))
  137.  
  138.   (set #create-geniestore
  139.   (cat "Creating GenieStore"
  140.   ))
  141.  
  142.   (set #ask-genies
  143.   (cat "Which genies should be activated?"
  144.   ))
  145.  
  146.   (set #genie-help
  147.   (cat "All genies that are not activated will be installed in the GenieStore directory. For the further informations about particular genies read genie.doc."
  148.   ))
  149.  
  150.   (set #ask-arexx
  151.   (cat "Do you whish to install ARexx scripts?"
  152.   ))
  153.  
  154.   (set #help-arexx
  155.   (cat "Only choose if you realy use Rexx!"
  156.   ))
  157.  
  158.   (set #create-arexx
  159.   (cat "Creating Arexx dir"
  160.   ))
  161.  
  162.   (set #ask-pdocs
  163.   (cat "Do you whish to install Programming documentation?"
  164.   ))
  165.  
  166.   (set #help-pdocs
  167.   (cat "Only choose if you plan to write your own players or genies."
  168.   ))
  169.  
  170.   (set #create-pdocs
  171.   (cat "Creating Developer dir"
  172.   ))
  173.  
  174.   (set #extract-players
  175.   (cat "Extracting Players"
  176.   ))
  177.  
  178.   (set #extract-genies
  179.   (cat "Extracting Genies"
  180.   ))
  181.  
  182.   (set #extract-arexx
  183.   (cat "Extracting Arexx Scrips"
  184.   ))
  185.  
  186.   (set #extract-docs
  187.   (cat "Extracting Docs"
  188.   ))
  189.  
  190.   (set #extract-libs
  191.   (cat "Extracting Libs"
  192.   ))
  193.  
  194.   (set #extract-pdocs
  195.   (cat "Extracting development stuff"
  196.   ))
  197.    
  198.   (set #final-msg
  199.   (cat "When you start DeliTracker the first time a lot of windows will pop up. Don't close them at the moment! Move them around as you like. Repeat the following steps for each window:\n\n1) Activate the window\n\n2) Set your defaults. You will find various options in the 'Settings' Menu. In particular: If you don't want the window to be opened every time DeliTracker is started turn 'Popup' off (no checkmark).\n\n3) Select 'Save Prefs' form the 'Project' Menu.\n"
  200.   ))
  201.  )
  202. )
  203.  
  204. ; german strings
  205.  
  206. (if (= @LANGUAGE "deutsch")
  207.  (
  208.   (set def_pat "#?.dok#?")
  209.  
  210.   (set #bad-kick
  211.   (cat "DeliTracker 2.0 benötigt mindenstens Kickstart 2.04!"
  212.   ))
  213.  
  214.   (set #abort-t
  215.   (cat "Das T: Verzeichnis muß mindestens 500KB Platz zum Entpacken verschiedener Dateien bieten."
  216.   ))
  217.  
  218.   (set #abort-no-space
  219.   (cat "Sie benötigen mindestens 850.000 Bytes freien Plattenplatz um DeliTracker zu installieren."
  220.   ))
  221.  
  222.   (set #choose-text
  223.   (cat "Bitte wählen Sie das Verzeichniss wohin DeliTracker installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade an."
  224.   ))
  225.  
  226.   (set #choose-help
  227.   (cat "Bei der Installation werden alle Dateien, bis auf die Libraries, in dieses Verzeichniss installiert. Die vollständige Installation von DeliTracker belegt auf der Festplatte etwa 1MB."
  228.   ))
  229.  
  230.   (set #create-maindir
  231.   (cat "Erstelle DeliTracker-Verzeichniss"
  232.   ))
  233.  
  234.   (set #create-configdir
  235.   (cat "Erstelle Konfigurations-Verzeichniss"
  236.   ))
  237.  
  238.   (set #set-path
  239.   (cat "Erstelle Pfad-Variable"
  240.   ))
  241.  
  242.   (set #inst-main
  243.   (cat "Installiere Hauptprogramm."
  244.   ))
  245.  
  246.   (set #create-docsdir
  247.   (cat "Erstelle Docs-Verzeichniss"
  248.   ))
  249.  
  250.   (set #inst-docs
  251.   (cat "Installiere Programm Dokumentation"
  252.   ))
  253.  
  254.   (set #ask-xpk
  255.   (cat "Wollen sie die XPK Packer-Libraries installieren?"
  256.   ))
  257.  
  258.   (set #xpk-help
  259.   (cat "Sie sollenten die Packer-Libraries auch dann installieren, wenn Sie (noch) keine gepackten Module besitzen!"
  260.   ))
  261.  
  262.   (set #create-comressorsdir
  263.   (cat "Erstelle Libs:Compressors Unterverzeichniss"
  264.   ))
  265.  
  266.   (set #create-playerdir
  267.   (cat "Erstelle Player-Verzeichniss"
  268.   ))
  269.  
  270.   (set #create-playerstore
  271.   (cat "Erstelle PlayerStore"
  272.   ))
  273.  
  274.   (set #ask-players
  275.   (cat "Welche Player sollen aktiviert werden werden?"
  276.   ))
  277.  
  278.   (set #ask-additional-players
  279.   (cat "Sollen zusätzliche Player aktiviert werden? Hierbei handelt es sich um Player die nicht sehr Verbreitet sind. Der normale Benutzer wird diese Player nicht benötigen. Wir schlagen deshalb vor, das sie mit 'NEIN' fortfahren."
  280.   ))   
  281.  
  282.   (set #ask-players-2
  283.   (cat "Welche zusätzlichen Player sollen bei Programmstart geladen werden?"
  284.   ))
  285.  
  286.   (set #player-help
  287.   (cat "Bitte wählen Sie nur Player für die sie auch Module besitzen. Nicht angewählete Player werden im Playerstore installiert. Sie können diese Player bei Bedarf später immer noch nachladen."
  288.   ))
  289.  
  290.   (set #create-geniedir
  291.   (cat "Erstelle Genie Verzeichniss"
  292.   ))
  293.  
  294.   (set #create-geniestore
  295.   (cat "Erstelle GenieStore"
  296.   ))
  297.  
  298.   (set #ask-genies
  299.   (cat "Welche zusätzlichen Genies sollen bei Programmstart geladen werden?"
  300.   ))
  301.  
  302.   (set #genie-help
  303.   (cat "Alle Genies die nicht aktiviert werden sind im GenieStore zu finden. Weitere Informationen finden Sie in Genies.dok."
  304.   ))
  305.  
  306.   (set #ask-arexx
  307.   (cat "Wollen sie die ARexx scripts installieren?"
  308.   ))
  309.  
  310.   (set #help-arexx
  311.   (cat "Wählen sie diese Option nur wenn sie Arexx auch benutzen."
  312.   ))
  313.  
  314.   (set #create-arexx
  315.   (cat "Erstelle Arexx-Verzeichniss"
  316.   ))
  317.  
  318.   (set #ask-pdocs
  319.   (cat "Wollen sie die Programmierdokumentation installieren?"
  320.   ))
  321.  
  322.   (set #help-pdocs
  323.   (cat "Wählen sie diese Option nur, wenn sie eigene Player oder Genies schreiben wollen. Hinweis: Die Entwicklerdokumentation ist für Assemblerprogramierer gedacht und ist nur in Englisch verfügbar!"
  324.   ))
  325.  
  326.   (set #create-pdocs
  327.   (cat "Erstelle Developer-Verzeichniss"
  328.   ))
  329.  
  330.   (set #extract-players
  331.   (cat "Entpacke Player"
  332.   ))
  333.  
  334.   (set #extract-genies
  335.   (cat "Entpacke Genies"
  336.   ))
  337.  
  338.   (set #extract-arexx
  339.   (cat "Entpacke Arexx Scrips"
  340.   ))
  341.  
  342.   (set #extract-docs
  343.   (cat "Entpacke Dokumentation"
  344.   ))
  345.  
  346.   (set #extract-libs
  347.   (cat "Entpacke Libraries"
  348.   ))
  349.  
  350.   (set #extract-pdocs
  351.   (cat "Entpacke Entwicklungspaket"
  352.   ))
  353.  
  354.   (set #final-msg
  355.   (cat    "Wenn Sie DeliTracker das erste mal starten, werden viele Fenster geöffnet. Verschieben Sie die Windows an eine Position Ihrer Wahl und wiederholen sie folgende Schritte für jedes Fenster:\n\n1) Aktivieren sie das Fenster\n2) Stellen sie die Optionen nach Bedarf ein. Sie finden die Einstellungen im 'Settings' Menü. Wenn sie wünschen, das dieses Fenster nicht bei jedem Start von DeliTracker geöfnet werden soll, schalten sie 'Popup' ab.\n3) Wählen sie den Menüpunkt 'Save Prefs' aus dem 'Project' Menü."
  356.   ))
  357.  
  358.  )
  359. )
  360.  
  361. ; check kick version
  362.  
  363. (if (< (/ (getversion) 65536) 37) (abort #bad-kick))
  364.  
  365. ; say hi 
  366. (welcome)
  367. (complete 0)
  368.  
  369. ;=============================================================================;
  370. ; Choose directory where DeliTracker will be installed.
  371. ; (Check for enough room)
  372. ;
  373. ;(if (exists "ENV:DELICONFIG" (noreq))
  374. ; (abort "The update script ist not finished yet!")
  375. ;)
  376.  
  377. (if (= "RAM" (getdevice "T:"))
  378.  (set freespace (+ (database "total-mem")))
  379.  (set freespace (getdiskspace ("%s:" (getdevice "T:"))))
  380. )
  381. (if (< freespace 500000)
  382.   (abort #abort-t))
  383.  
  384.  
  385. (set @default-dest (getassign "Work" "dva"))
  386. (if (= @default-dest "")
  387.  (set @default-dest "SYS:"))
  388.  
  389. (set @default-dest (askdir
  390.   (prompt #choose-text)
  391.   (help #choose-help)
  392.   (default @default-dest))
  393. )
  394.  
  395.  
  396. (set @default-dest (tackon @default-dest "DeliTracker_II"))
  397.  
  398. (if (NOT (= "RAM" (getdevice @default-dest)))
  399.  (if (> 850000 (getdiskspace ("%s:" (getdevice @default-dest))))
  400.   (abort #abort-no-space)
  401.  )
  402. )
  403.  
  404. (complete 5)
  405.  
  406. ;=============================================================================;
  407. ; Install procedure for DeliTracker itself
  408.  
  409. ;(copyfiles (source "c/LhX") (dest "T:"))
  410.  
  411. (makedir @default-dest (prompt #create-maindir)(infos))
  412. (makedir (tackon @default-dest "DeliConfig") (prompt #create-configdir))
  413. (copyfiles (prompt #inst-main)
  414.  (source "DeliTracker2")
  415.  (dest @default-dest)
  416.  (optional "fail")
  417.  (infos)
  418. )
  419.  
  420. (complete 10)
  421.  
  422. ;=============================================================================;
  423. ; Installation procedure for players
  424.  
  425. (makedir (tackon @default-dest "DeliPlayers")
  426.  (prompt #create-playerdir)
  427.  (infos)
  428. )
  429.  
  430. (makedir (tackon @default-dest "DeliPlayers/PlayerStore")
  431.  (prompt #create-playerstore)
  432.  (infos)
  433. )
  434.  
  435. (working #extract-players)
  436. ;(run "T:LhX -x x Files/players.lha T:")
  437.  
  438. (
  439.  (copyfiles (prompt #ask-players)
  440.   (help #player-help)
  441. ;  (source "T:DeliPlayers/")
  442.   (source "Meeting_Pearls_I:DeliTracker_II/DeliPlayers/")
  443.   (dest (tackon @default-dest "DeliPlayers"))
  444.   (optional "nofail")
  445.   (confirm "average")
  446.   (files)
  447.   (all)
  448.  )
  449. )
  450.  
  451. (if (= 1 (askbool (prompt #ask-additional-players) (help @help-askbool)))
  452.  (    
  453.   (
  454.    (copyfiles (prompt #ask-players-2)
  455.    (help #player-help)
  456.    (source "Meeting_Pearls_I:DeliTracker_II/DeliPlayers/Playerstore")
  457.    (dest (tackon @default-dest "DeliPlayers"))
  458.    (optional "nofail")
  459.    (confirm "average")
  460.    (files)
  461.    (all)
  462.    )
  463.   )
  464.  )
  465. )
  466.  
  467. (complete 65)
  468.  
  469. ;=============================================================================;
  470. ; Installation procedure for genies
  471. ; Install default genies
  472. ; Average, Expert: ask optional genies
  473.  
  474. (makedir (tackon @default-dest "DeliGenies")
  475.  (prompt #create-geniedir)
  476.  (infos)
  477. )
  478.  
  479. (makedir (tackon @default-dest "DeliGenies/GenieStore")
  480.  (prompt #create-geniestore)
  481.  (infos)
  482. )
  483.  
  484. (working #extract-genies)
  485. ;(run ("T:LhX -x x Files/genies.lha \"%s/\"" @default-dest))
  486.  
  487. ; remove NotePlayers on 68000er Systems that require at least a '020
  488. (if (OR (= "68000" (database "cpu") (= "68010" (database "cpu"))))
  489.  (
  490.   (delete (tackon @default-dest "DeliGenies/GenieStore/14Bit-NotePlayer"))
  491.   (delete (tackon @default-dest "DeliGenies/GenieStore/ModSave-NotePlayer"))
  492.   (delete (tackon @default-dest "DeliGenies/GenieStore/32Voc-NotePlayerPlus"))
  493.  )
  494. )
  495.  
  496. (
  497.  (copyfiles (prompt #ask-genies)
  498.   (help #genie-help)
  499.   (source "Meeting_Pearls_I:DeliTracker_II/DeliGenies/Geniestore")
  500.   (dest (tackon @default-dest "DeliGenies"))
  501.   (optional "nofail")
  502.   (confirm "average")
  503.   (files)
  504.   (all)
  505.  )
  506. )
  507.  
  508. ;(foreach (tackon @default-dest "DeliGenies") "#?" (delete (tackon (tackon @default-dest "DeliGenies/GenieStore/") (fileonly @each-name))))
  509.  
  510. (complete 75)
  511.  
  512. ;=============================================================================
  513. ; Installation procedure for Arexx Scripts
  514.  
  515. (if (< 0 @user-level)
  516.  (
  517.   (makedir (tackon @default-dest "Arexx")
  518.    (prompt #create-arexx)
  519.    (infos)
  520.   )
  521.   (copyfiles (prompt #ask-arexx)
  522.    (help #help-arexx)
  523.    (source "Meeting_Pearls_I:DeliTracker_II/ARexx")
  524.    (dest (tackon @default-dest "ARexx"))
  525.    (optional "nofail")
  526.    (confirm "average")
  527.    (files)
  528.    (all)
  529.   )
  530.  )
  531. )
  532.  
  533. (complete 80)
  534.  
  535. ;=============================================================================;
  536. ; Install procedure for the decompression libraries
  537.  
  538. (if (OR (= 0 @user-level) (if (< 0 @user-level) (askbool (prompt #ask-xpk) (help #xpk-help))))
  539.  (
  540.   (makedir "Libs:Compressors" (prompt #create-comressorsdir))
  541.  
  542.   (copylib (prompt "Install xpkmaster.library")
  543.   (source "Meeting_Pearls_I:DeliTracker_II/libs/xpkmaster.library")
  544.   (dest "libs:")
  545.   (confirm)
  546.   (optional nofail askuser)
  547.   (help @copylib-help)
  548.   )
  549.  
  550.   (copylib (prompt "Install powerpacker.library")
  551.   (source "Meeting_Pearls_I:DeliTracker_II/libs/powerpacker.library")
  552.   (dest "libs:")
  553.   (confirm)
  554.   (optional nofail askuser)
  555.   (help @copylib-help)
  556.   )
  557.  
  558.   ; xpk sub lib's
  559.   
  560.   (copylib (prompt "Install compressors/xpkNUKE.library")
  561.   (source "Meeting_Pearls_I:DeliTracker_II/libs/compressors/xpkNUKE.library")
  562.   (dest "libs:compressors/")
  563.   (confirm)
  564.   (optional nofail askuser)
  565.   (help @copylib-help)
  566.   )
  567.  
  568.   (copylib (prompt "Install compressors/xpkSMPL.library")
  569.   (source "Meeting_Pearls_I:DeliTracker_II/libs/compressors/xpkSMPL.library")
  570.   (dest "libs:compressors/")
  571.   (confirm)
  572.   (optional nofail askuser)
  573.   (help @copylib-help)
  574.   )
  575.  
  576.   (copylib (prompt "Install compressors/xpkSHRI.library")
  577.   (source "Meeting_Pearls_I:DeliTracker_II/libs/compressors/xpkSHRI.library")
  578.   (dest "libs:compressors/")
  579.   (confirm)
  580.   (optional nofail askuser)
  581.   (help @copylib-help)
  582.   )
  583.  
  584.   ; install right version for 680x0 cpu
  585.   (if (OR (= "68000" (database "cpu") (= "68010" (database "cpu"))))
  586.    (copylib (prompt "Install compressors/xpkSQSH.library")
  587.     (source "Meeting_Pearls_I:DeliTracker_II/libs/68000/xpkSQSH.library")
  588.     (dest "libs:compressors/")
  589.     (confirm)
  590.     (optional nofail askuser)
  591.     (help @copylib-help)
  592.    )
  593.    (copylib (prompt "Install compressors/xpkSQSH.library")
  594.     (source "Meeting_Pearls_I:DeliTracker_II/libs/68020/xpkSQSH.library")
  595.     (dest "libs:compressors/")
  596.     (confirm)
  597.     (optional nofail askuser)
  598.     (help @copylib-help)
  599.    )
  600.   )
  601.  )
  602. )
  603.  
  604. (complete 90)
  605.  
  606. ;=============================================================================;
  607. ; Install procedure for the documentation files
  608.  
  609. (makedir (tackon @default-dest "Docs")
  610.  (prompt #create-docsdir)
  611.  (infos)
  612. )
  613.  
  614. (copyfiles (prompt #inst-docs)
  615.  (source "Meeting_Pearls_I:DeliTracker_II/Docs/")
  616.  (dest (tackon @default-dest "Docs"))
  617.  (pattern def_pat)
  618.  (optional "nofail")
  619.  (infos)
  620.  (files)
  621. )
  622.  
  623. (complete 95)
  624.  
  625. ;=============================================================================;
  626. ; Installation procedure for Development Documentation
  627.  
  628. (if (= 2 @user-level)
  629.  (if (= 1 (askbool (prompt #ask-pdocs) (help #help-pdocs)))
  630.   (
  631.    (makedir (tackon @default-dest "Developer")
  632.     (prompt #create-pdocs)
  633.     (infos)
  634.    )
  635.    (makedir (tackon @default-dest "Developer/Examples")
  636.     (prompt #create-pdocs)
  637.     (infos)
  638.    )
  639.    (makedir (tackon @default-dest "Developer/Includes")
  640.     (prompt #create-pdocs)
  641.     (infos)
  642.    )
  643.  
  644.    (copyfiles
  645.     (source "Meeting_Pearls_I:DeliTracker_II/Developer")
  646.     (dest (tackon @default-dest "Developer"))
  647.     (optional "nofail")
  648.     (confirm "average")
  649.     (all)
  650.    )
  651.    (if (= @language "english")
  652.     (
  653.     (delete (tackon @default-dest "Developer/Developer.dok"))
  654.     (delete (tackon @default-dest "Developer/Developer.dok.info"))
  655.     )
  656.     (
  657.     (delete (tackon @default-dest "Developer/Developer.doc"))
  658.     (delete (tackon @default-dest "Developer/Developer.doc.info"))
  659.     )
  660.    )   
  661.   )
  662.  )
  663. )
  664.  
  665. ;=============================================================================;
  666. ; Set environment variables for configuration path
  667.  
  668. (complete 98)
  669.  
  670. (textfile (prompt #set-path) (dest "ENV:DeliConfig") (append (expandpath (tackon @default-dest "DeliConfig")))) 
  671. (textfile (prompt #set-path) (dest "ENVARC:DeliConfig") (append (expandpath (tackon @default-dest "DeliConfig")))) 
  672.  
  673. ;=============================================================================;
  674. ; Cleanup & tell some important things!
  675.  
  676. ;(delete "T:LhX")
  677. (complete 99)
  678. (message #final-msg)
  679. (complete 100)
  680. ;=============================================================================;
  681.